﻿Public Class CTMonitorPAJ

Private _IDPS           As Long 
Private _IDPEJ          As Long 
Private _IDPAJ          As Long 

Private _Estatus        As String 
Private _FecCreacion    As Date 
Private _FecAplicacion  As Date 
Private _MontoAjuste    As Decimal  
Private _Comentario     As String 


Public Property IDPS() As Long 
    Get
        Return _IDPS
    End Get
    Set(ByVal value As LONG)
        _IDPS = value
    End Set
End Property

Public Property IDPEJ() As Long     
    Get
        Return _IDPEJ
    End Get
    Set(ByVal value As long)
        _IDPEJ = value
    End Set
End Property

Public Property IDPAJ() As long
    Get
        Return _IDPAJ 
    End Get
    Set(ByVal value As long)
        _IDPAJ = value
    End Set
End Property



Public Property Estatus() As String 
    Get
        Return _Estatus 
    End Get
    Set(ByVal value As String)
        _Estatus = value
    End Set
End Property

Public Property FecCreacion() As date
    Get
        Return _FecCreacion 
    End Get
    Set(ByVal value As date)
        _FecCreacion = value
    End Set
End Property


Public Property FecAplicacion() As date
    Get
        Return _FecAplicacion
    End Get
    Set(ByVal value As date)
        _FecAplicacion = value
    End Set
End Property


Public Property MontoAjuste() As decimal
    Get
        Return _MontoAjuste 
    End Get
    Set(ByVal value As decimal)
        _MontoAjuste = value
    End Set
End Property


Public Property Comentario() As String 
    Get
        Return _Comentario
    End Get
    Set(ByVal value As String)
        _Comentario = value
    End Set
End Property



End Class
